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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor sha^l the fapt of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 
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Correction 



13.0.015 
April 15, 1965 



The program decks have been revised and the listings 
reflecting these changes are attached. These pages 
replace pages A2 through A27 that are currently in 
the vriteup. 
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1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter or pencil, do not use ink) 

Program No. Date 

Program Name: __ ___________________________^ 

1. Does the abstract adequately describe what the program is and what Yes No. 

it does? 
Commen t 

2. Does the program do what the abstract says ? Yes No. 

Commen t 

3. Is the Description clear, understandable, and adequate? Yes No. 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 



5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

C omment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 



10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 

Data Corporation 

7500 Old Xenia Pike Address 

Dayton, Ohio 45432 

User Group Code 

THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVI TED 
TO PARTICIPATE EST THIS EVALUATION. 
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Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



1. TITLE: The 141 Data Processing System - An Educational Computer for 

Instruction in Basic Programming. 
SUBJECT CLASSIFICATION: 13.0. 

2. AUTHOR; ORGANIZATION : Kenneth P. Swallow, College of San Mateo and 

Richard E. Gentry, 

USERS GROUP MEMBERSHIP CODE: 5 194 

3. DIRECT INQUIRIES TO: Kenneth P. Swallow, College of San Mateo, 

1700 West Hillsdale Blvd., San Mateo, California. 
Phone: 341 - 6161 

4. DESCRIPTION/PURPOSE: The 141 Data Processing System is an educa- 

tional tool for teaching basic computer concepts through a 
1401 type machine language and 1401 SPS. The 141 Simulator 
set of basic 1401 instructions includes: SW, CW, R, P, W, KCW, 
LCA, CS, B, C, A, S, H, and NCF. This set is sufficient to 
illustrate such concepts as: (l) reading, punching, and print- 
ing, (2) looping for iterative processes, (3) sequence checking, 
(4) counted loops, (5) program switches, (6) load routines, 
(7) address modification, (8) subroutines and subroutine link- 
ages, etc. Basic utility routines are incorporated in the 141 
Simulator for easy debugging of 141 programs. 141 written sub- 
routines are provided for multiplication, division, zero sup- 
pression, and editing. 

"he 141 SPS Assembler processes the 141 set of instructions and 
all 1401 pseudo operations including: DCW, DC, DS, DSA, ORG, 
Ea, and END. 

7. SPECIFICATIOBS: 

a. STORAGE USED BY FROGRAM: 20,000 positions of storage. 

b. EQUIPMENT REQUIRED 3Y PROGRAM: 

Version A - Basic 1620 card system 

Version B - 1620, 1622, and 1443 

Version C - 1620, 1622, 1311, and indirect addressing 

Version D - 1620, 1622, 1443, 1311, and indirect 
addressing 

c. PROGRAMMING TYPE: 

Versions A and B - SPS - 1620/1710 

Versions C and D - SFS II-D 
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DECK LABELING 
Card Number - Columns 77-80 



Version A - 3asic 1620 _13. 0. 015 

141 SPS Assembler 1001 - 1154 

141 Simulator 2001 - 2201 



Version B - 1620 with 1443 Printer _ 13. 0. 016 

141 SPS Assembler 3001 - 3151 

141 Simulator 4001 - 4195 



Version C - 1620 with 1311 Disk Storage 

Drive and Indirect Addressing -13. 0. 017 

141 SPS Assembler 5001 - 5109 

141 Simulator 6001 - 6144 



Version D - 1620 with 1443 Printer, 1311 
Disk Storage Drive, and 
Indirect Addressing "13. 0. 018 

141 SPS Assembler 7001 - 7108 

141 Simulator 8001 - 8139 



The program decks for Versions C and D are in 1620 Monitor 
System Output Format. They can be loaded onto the disk by- 
means of the Disk Utility Program using an *DL0AD card with 
the program name, 141SPS or 141SIM, in columns 7-12 and 
02402CK in columns 44 - 50. 
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SECTION 1 



THE 141 DATA PROCESSING MACHINE 



INTRODUCTION 



A basic course in the use of computers for data processing can serve 
many purposes, such as: introducing the terminology that is peculiar 
to the industry, describing the elements that are common to all com- 
puter systems, enumerating the application areas in data processing, 
exploring the coding systems used with computers, and many others. 
But undoubtedly the greatest service that a basic computer course can 
give to the beginner is to provide a firm, even if limited, foundation 
in stored programming concepts. The degree to which a beginning pro- 
grammer grasps these basic principles will, to a large extent, deter- 
mine his success in future programming classes. 

The choice of the computer, the programming language, and the exercises 
to be used in the basic course is an important factor in the ease with 
which stored program concepts can be imparted to the student. The 141 
was designed solely as a vehicle for teaching these initial concepts. 

The 141 has sufficient instructions to allow the coding of a wide 
range of programming problems, but at the same time the instruction 
set is small enough that the primary effort of the student is directed 
toward the understanding of programming concepts and not the memori- 
zation of a large number of operational rules. The 141 set of four- 
teen instructions will permit field definition, data movement, input/ 
output operations, comparing, arithmetic operations, and branching. 
Simple exercises in 141 programming can illustrate such concepts as 
(l) reading, punching and printing, (2) looping for iterative pro- 
cesses, (3) sequence checking, (4) counted loops, (5) address modifi- 
cation, (6) program switches, (7) subroutine linkages, etc. 

If coding a program builds confidence in the new programmer, seeing 
his program run and seeing it printed as it is represented in core 
storage can only strengthen that confidence and cement further the 
whole concept of stored programming in his mind. Any 141 program can 
be run csn an IBM 1401, 1460, or 1410 Data Processing System. It can 
also be run on an IBM 1620 Data Processing System through the use 
of a special simulator program. 

In addition to the concept of stored programming, a basic computer 
course should also include the introduction to a symbolic assembly 
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language. 141 programs can be written in IBM 1401 SPS (Symbolic Pro- 
gramming System) and assembled on a 1401. If instead an IBM 1620 
is available, programs written for the 141 in SPS can be assembled 
on the 1620. 



DESCRIPTION 



The 141 Data Processing System is an abbreviated version of the IBM 
1401 Data Processing System. It is an internally stored program 
machine with the following features: 

1. Input: IBM Card Reader. 

2. Output: IBM Card Punch and 100 character per line Printer. 

3. Storage: 1000 positions of core storage with three digit 

numerical addresses. 

4. Instuction length and date length: Variable. 

Each position is designated by a three digit address in the range of 
000 through 999 and is capable of storing one character: a letter of 
the alphabet, a numeric digit or a special character such as . , / + 
or H • A group of consecutive storage positions make up a field. 
Both data and instruction fields are variable in length so that no 
storage space need be wasted with meaningless blanks or zeros. 



DATA 



If a field is used for data it is referred to by the address of its 
low order, or right most, position. A special indicator called a 
word mark is placed in the high order, or left most, position to in- 
dicate the length of the field. The machine processes data fields 
from right to left starting at the addressed low order position and 
continuing until a character with a word mark is met. For example, 
a five-digit data field in storage locations 482 through 486 would 
have a word mark (indicated by an underline) in position 482 and 
would be addressed by 486. Notice that the low order position has 
the highest address. 
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INSTRUCTIONS 



When a field contains an instruction it is addressed by the high order, 
or left most, position of the field. This position contains the opera- 
tion code character and a word mark. In addition to the operation code 
an instruction may also contain one or two three-digit addresses and/ 
or a modifying character. An instruction may therefore contain one, 
four, five, seven, or eight characters. The machine reads instructions 
from left to right starting with the addressed high order position and 
continuing until it meets the word mark in the high order position 
of the next instruction. 



CHARACTER CODING 



Each position of storage is made up of eight magnetic cores, each of 
which can hold one "yes-or-no" bit. Four bits are needed to represent 
the digit portion of the Hollerith code. of the characters; two more 
bits are needed to represent the zone portion of the Hollerith code 
of the characters; another bit is used to indicate the presence or 
absence of a word mark; and the eighth bit is used for checking. 

The digit portion is coded in the Binary Code Decimal (BCD) system 
in which the four bits have the values of 8, 4, 2, and 1 respectively. 
The sum of the "yes" bits is equal to the value of the digit. Notice 
that the digit is represented by the 8 bit and the 2 bit rather than 
no bits at all. 



Digit 




BCD 


Code 




8 


4 


2 1 


1 






X 


2 






X 


3 






X X 


4 




X 




5 




X 


X 


6 




X 


X 


7 




X 


X X 


8 


X 






9 


X 




X 





X 




X 
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In representing alphabetic and special characters the zone is rep- 
resented by the A and the B bits as follows: 



Zone 


B 


A 


12 


(A - 


I) 


X 


X 


11 


(J - 


R) 


X 







(s - 


z) 




X 


no 


(0 - 


9) 







The C bit is used for parity checking and is chosen so that the char- 
acter will always contain an odd number of "yes" bits. For example, 
the letter "F" which is represented by the 12 and 6 punches on an IBM 
card is represented in the seven-bit alphameric code as: 



Character 


Card Code 


Seven-bit Alphameric Code 






C B A 8 4 2 1 


F 


12-6 


XXX XX 



Table 1 gives the seven-bit alphameric code for each Hollerith char- 
acter used with the 141 Data Processing Machine. 



© 
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TABLE 1 



Character 


Card Code 


Seven-bit Alphameric Code 
«C B A 8 4 2 1 


Blank 


oxanK 


X 












15 1 A 
X"C — J5 — o 




X 


X X 


X 


X 


« 


xji — h — o 


X 


X 


XXX 






& 


12 


X 


X 


X 








11 




X 








/ 


f\ i 

U — X 


X 




X 




X 


> 


r\ 'i d 
V — j — a 


X 




X X 


X 


X 


A 


XX. — i 




X 


X 




X 


r> 


12 — 2 




X 


X 


X 




p 


!■<■ — J 


X 


X 


X 


X 


X 


u 


-I* - 4 




X 


X X 






Hi 


TO 

±<i — ? 


X 


X 


X X 




X 


Tf 

r 


iX — O 


X 


X 


X X 


X 




(j 






X 


X X 


X 


X 


H 


12-8 




X 


X X 






1 


1 5 _ Q 


X 


X 


X X 




X 


j 


11—1 
xj. — X 


X 


X 






X 


j[ 


XX — ^ 


X 


X 




X 




L 


11 _ 
XX — J 




X 




X 


X 


M 


11-4 


X 


X 


X 






N 


11 - 5 




X 


X 




X 


o 


11-6 




X 


X 


X 




p 


11-7 


X 


X 


X 


X 


X 


Q 


11-8 


X 


X 


X 






H 


11-9 




X 


X 




X 


S 


0-2 


X 




X 


X 




T 


0-3 






X 


X 


X 


U 


0-4 


X 




X X 






V 


0-5 






X X 




X 


W 


0-6 






X x 


X 




X 


0-7 


X 




X X 


X 


X 


Y 


0-8 


X 




X X 






Z 


0-9 






X X 




X 








X 




X 


X 




1 


1 










X 


2 


2 








X 




3 


3 


X 






X 


X 


4 


4 






X 






5 


5 


X 




X 




X 


6 


6 


X 




X 


X 




7 


7 






X 


X 


X 


8 


8 






X 






9 

i 


9 


X 




X 




X 



* Check bit to produce odd-parity. Table shows values for 

positions with no word nark. Reverse if word nark is present. 
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^41 INSTRUCTIONS 
(IN ALPHABETIC ORDER OF SPS MKEHONICS) 



Add i 

Op-Code A-address B-address 

A aaa bbb 

Description The Add instruction causes the data in the A-field 
to be added algebraically to the data in the B-field. The 
A-field is not disturbed and the resulting sum is stored in 
the B-field. 

Word Marks The defining word mark of the B-field terminates the 
operation. If the A-field is shorter than the B-field, the 
A-field word mark will halt transmission of data from the 
A-field but any resulting carries will be added to the B-field 
until the B-field word mark is sensed. If a carry results 
beyond the B-field word mark, it is lost or if the A-field is 
longer, the high order positions of the A-field which exceed 
the limits imposed by the B-field word mark are lost. These 
both represent overflow conditions. 



Add (Single Address) __ L 

Op-Code A-address 

A aaa 

Description The four position Add instruction causes the A-field 
to be added to itself with the sum replacing the original 
A-field. 

Word Harks The word mark is not affected. 



Branch , 

Op-Code I-address 

B iii 

Description The Branch instruction causes the program to branch 
to the instruction specified by the I-address. 
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Branch If Indicator On 



Op-Code I-address d-character 

B iii d 

Description The Branch If Indicator On instruction is a condi- 
tional branch. The d-character specifies the indicator to be 
tested as a criterion for the branch* If the indicator is on, 
then the program branches to the instruction specified by the 
I-address. If the indicator is off, the next sequential in- 
struction is executed. The indicators to be tested and their 
d-character codings are: 

Indicator d-character 

Unequal compare (B ^ A) / 

Equal compare (B - A) S 

Low compare (B < A) T 

High compare (B>-A) U 

Testing of an indicator does not affect its setting. 

Branch If Character Equal B 

Op-Code I-address B-address d-character 

B iii bbb d 

Description The Branch If Character Equal instruction causes 
the single character at the B-address to be compared to the 
d-character. If they are identical, the program branches to 
the instruction specified by the I-address. If they are 
different, the program proceeds to the next instruction in 
sequence. 

Word Marks Word marks at the B-address are ignored and thus do 
not affect the comparison. 



Compare C 
Op-Code A-address B-address 

C aaa bbb 

Description The Compare instruction causes the information in 
the B-field to be compared with an equal number of characters 
in the A-field. The bit configuration of each character of 
the two fields is compared and appropriate indicators are set 
as described below. 
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Word Marks The first word mark encountered terminates the op- 
eration. If the A-field is longer than the B-field, extra 
positions beyond the length of the B-field will not be com- 
pared. 

Indicators If the two fields are identical, character by char- 
acter, an Equal Compare results and the Equal Indicator is 
turned on. If the fields are not equal then an Unequal Com- 
pare results and the Unequal Indicator is turned on. In 
addition, the High Indicator is turned on if the B-field is 
greater than the A-field and the Low indicator if the A-field 
is greater than the B-field. If the B-field is longer than 
the A-field, the Unequal and High Indicators are turned on 
regardless of their contents. AH indicators are reset only 
by another Compare instruction. 



Clear Storage CS 

Op-Code A-address 

J_ aaa 

Description The Clear Storage instruction causes the storage to 
be cleared to blanks beginning at the location specified by 
the A-address and continuing downward through the nearest 
hundreds position. 

Word Marks Both word marks and data are cleared by this instruction. 



Clear Storage and Branch , QS 

Op-Code I-address B-address 

I iii bbb 

Description The Clear Storage and Branch instruction causes 
the storage to be cleared (including word marks) to blanks 
beginning at the location specified by the B-address and con- 
tinuing downward through the nearest hundreds position in 
the same manner as the Clear Storage instruction. Upon com- 
pletion of the clearing operation the program branches to 
the instruction specified by the I-address. 



Clear Word Mark CW 

Op-Code A-address B-address 

JJor X aaa 

or X aaa bbb 
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Description The Clear Word Mark instruction causes a word mark 
to be cleared from the location specified by the A-address. 
If a B-address is also used, word marks will be cleared from 
the locations specified by each address. If no word mark 
existed in either location prior to -the instruction, there 
will be no change at that location. Data will not be disturbed. 



Halt 



Op-Code 



Description The Halt instruction causes the computer to stop. 
Depressing the start key will cause the program to proceed to 
the next instruction in sequence. 



Halt and Branch 



Op-Code I-address 



Description The Halt and Branch instruction causes the computer 
to stop. Depressing the start key will cause the computer 
to proceed to the instruction designated by the I-address. 



Load Characters to A Word Mark LCA 

Op-Code A-address B-address 

L aaa bbb 

Description The Load Characters to A Word Mark instruction causes 
the characters and word mark from the A-field to replace the 
B-field. The A-field remains undisturbed. 

Word Marks The A-field must contain a word mark to terminate 
the transmission of data. All word marks in the B-field are 
cleared and a word mark is placed in the B-field corresponding 
to that in the A-field. 

hove Characters to A or B Word Mark MCW 

Op-Code A-address B-address 

M aaa bbb 
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Description The Move Characters to A or B Word Mark instruction 
causes the field specified by the A-address (A-field) to be 
moved to corresponding positions of the B-field. The A-field 
remains undisturbed but the B-field is lost. 

Word Marks The first word mark encountered in either field 
stops the transmission of data. Existing word marks in 
either field are not disturbed. 



No Operation ; NOP 

Op-Code 
N 

Description The only purpose of the No Operation instruction is 
to cause the program to proceed to the next instruction in 
sequence. The instruction may have the format of any allow- 
able instruction, that is, it may have an A-address, an 
A-address and a B-address, etc. 



Punch a Card ' P 

Op-Code 

k 

Description The Punch a Card instruction causes information in 
storage locations 101 through 180 (PUNCH area) to be punched 
in columns 1 through 80 respectively of a Hollerith coded aard. 
The machine coding is converted to Hollerith coding prior to 
punching. The information stored in the PUNCH area is un- 
disturbed. This instruction punches only information from the 
PUNCH area of storage onto the card. 

Word Marks Word marks are not punched, are not affected by the 
Punch instruction and do not affect punching in any manner. 



Punch and Branch P 

Op-Code I-address 

i iii 

Description The Punch and Branch instruction causes the computer 
to punch the contents of the PUNCH area (in the same manner as 
the Punch a Card instruction) then branch to the instruction 
specified by the I-address. 
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Read a Card 



R 



Op-Code 
1 

Description The Read a Card instruction causes the information 
in columns 1 through 80 of a Hollerith coded card to be read 
into storage positions 001 through 080 respectively. The 
Hollerith code from each column is converted to the appropriate 
computer coding as it is read into the computer. The Read a 
Card instruction always reads into positions 001 through 080 
(the READ area). 

Word Marks Word marks which exist in the READ area prior to ex- 
ecution of the instruction are not disturbed nor do they affect 
the reading of information. 



Read and Branch 



Op-Code I-address 

1 iii 

Description The Read and Branch instruction causes the computer 
to read one Hollerith coded card (in the same manner as the 
Read a Card instruction) then branch to the instruction speci- 
fied by the I-address. 



Subtract 



Op-Code A-address B-address 

S aaa bbb 

Description The Subtract instruction causes the data in the 
A-field to be subtracted algebraically from the data in the 
B-field. The A-field is not disturbed and the resulting 
difference is stored in the B-field. 

Word Marks Word' marks control the subtract operation in the 
same manner as the Add instruction. 



Subtract (Single Address) 



Op-Code A-address 
S aaa 
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Description The four position Subtract instruction causes the 
A-field to be subtracted from itself with zero replacing the 
original A-field. 



Word Marks The word mark is not affected. 

Set Word Mark SW 

Op-Code A-address B-address 

*. aaa 

£ aaa bbb 

Description The Set Word Mark instruction causes a word mark to 
be set at the location specified by the A-address. If a 
B-address is also used, word marks will be set at the locations 
specified by each address. Existing word marks are undis- 
turbed. Data at the location (or locations) will not be 
disturbed. 

Write a Line ■ ' ' W 

Op-Code 
2 

Description The Write a Line instruction causes the information 
in storage locations 201 through 300 (the VRITE area) to be 
printed on the printer (or typewriter). The information will 
remain in the WRITE area of storage after execution of the in- 
struction. This instruction always prints information from 
all 100 positions of the WRITE area. 

Word Marks Word marks are not printed, are not affected by the 
instruction and do not affect printing in any manner. 

Write and Branch W 

Op-Code P-address 
2 iii 

Description The Write and Branch instruction causes the computer 
to print the contents of the PRINT area (in the manner as the 
Write a Line instruction) then branch to the instruction 
specified by the I-address. 
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SECTION 2 



141 SYMBOLIC PROGRAMMING SYSTEM 



The Symbolic Programming System, SPS, has been developed to facilitate J 

logical, efficient programming with a minimum of actual coding effort. ' . I 

It almost completely relieves the programmer of the task of assigning j 

actual storage location to the instructions and data of the program j 

and allows him to refer to them by easy-to-remember names of his choice, j 

! 

INSTRUCTIONS l 



Instructions written in SPS contain a label, an operation code, an 
A-operand, a B-operand, and a d-character. Any of the parts except 
the operation code may be left blank. 

The label is the symbolic representation of the location in memory in 
which the instruction will be stored. It may have from one to six 
alphameric characters, the first of which must be alphameric and must 
be placed in column 8 of the coding sheet. The label may be left 
blank if no reference is made to the instruction elsewhere in the 
program. 

The operation code is mnemonic and consists of from one to three char- 
acters starting in column 14. 

If the instruction requires an A-operand it is written in columns 17 
through 26. If no A-operand is used those columns may be left blank. 
The address of an operand may be expressed aa a symbol, an actual 
location, or an asterisk. If it is written symbolically, it takes 
the same form as a label. If it is written as an actual location, it 
must be a four-digit number with leading zeros where necessary (al- 
though four digits are written on the coding sheet, only three char- 
acters will be used in memory). If an asterisk is used its equivalent 
address is that of the right most, or low order, position in the in- 
struction defined by the statement. 

The address of an operand may be adjusted by placing the number of 

characters of adjustment in columns 24 through 26 and the sign of the „ -*"*** 

adjustment in colum 23. Leading zeros may be omitted but the units*'*'* ' 
digit of the adjustment must be in column 26. 
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DR. JOHN MANIOTES 
COMPUTER TECHNOLOGY DEPT 
PURDUE UNIVERSITY 
CALUMET CAMPUS ^ , £ . 

HAMMOND, IN 46323 ^ 
1620 6323 13.0.015 

Correction April 15, 



The program decks have been revised and the listings 
reflecting these changes are attached. These pages 
replace pages A2 through A27 that are currently in 
the vriteup. 



o-vrrwiAM MHO!. P<1 



o 



C 







000 10* 
00020* 
00030* 
00040* 
00050* 

00060 ASMBLY 

00070 

00080 

00090 

00100 

001 10 

00120 

00130 

00140 

00150 

00160 LC 

00170 

00180 

00190 

00200 

002 10 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 1NCR 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

005 10 

00520 

00530 REPL 
00540 
00550 
00560 



- 141 - ASSEMBLER 
FOR BASIC 1620 

INITIALIZATION AND STORE PROGRAM ROUTINE 



TFM 


CDCNT,0 


TF 


11,1 NIT+11 


BLC 


* + 12 


TFM 


ERRCNT , 


TFM 


MOD+30 , STORE 


TFM 


ICTR,0333,8 


TFM 


MADDR+6, LABEL-15 


TFM 


MLABEL+6, LABEL-18 


TDM 


OVERSW ,0 


CF 


I DENT-1 


BLC 


NOEND 


RACD 


LAREA 


AM 


CDCNT, 1, 10 


C 


END+4, LAREA+30 


BE 


MOD 


C 


AST t LAREA+14 


BE 


MOD 


C 


CCTL, LAREA+30 


BE 


MOD 


C 


CEX , LAREA+30 


BE 


MOD 


C 


CDCW-2, LAREA+28 


BE 


DCDSR 


C 


CDSA-2, LAREA+28 


BE 


DCDSR 


C 


CORG, LAREA+30 


BE 


ORGR 


C 


CB, LAREA+30 


BNE 


*+60 


C 


BLANK, LAREA+64 


BE 


* + 36 


TFM 


CNT,8,9 


B 


REPL 


TFM 


CNT,0 ,9 


BD 


I NCR , LAREA + 75 


BD 


I NCR , LAREA + 76 


B 


* + 24 


AM 


CNT, 1, 10 


C 


BLANK, LAREA+64 


BNE 


*+60 


C 


BLANK, LAREA+42 


BNE 


*+60 


AM 


CNT, 1, 10 


B 


REPL 


AM 


CNT, 7, 10 


B 


REPL 


AM 


CNT, 4, 10 


TD 


LAREA+12,CNT 


TDM 


LAREA+11,7 


TD 


LAREA+10,CNT-1 


C 


BLANK, LAREA+24 



005 70 




BE 


RE PLI M 


00580 




TF 


LOC>I CTR 


00590 




BTM 


LTABLE 


00600 


REPLI M 


A 


ICTR,CNT 


006 10 




BD 


MODtOVERSW 


00620 




BD 


OVERR ,1 CTR-3 


00630 


MOO 


CM 


CDCNT, 100 


00640 




BH 


#+48 


00650 




TF 


O9LAREA+IO8 


00660 




AM 


*-6, 110 ,9 


00670 




B 


#+24 


00680 




WACD 


LAREA 


00690 




C 


END+4* LAREA + 30 


00700 




BE 


PASS2 


007 10 




B 


LC 


00720 




DC 


5»0 


00730 


LIABLE 


AM 


MLABEL+6, 15» 10 


00740 




AM 


MADDR+6, 1 5, 10 


00750 




CM 


MADDR +6, LABEL + 15#90 


00 760 




BNL 


LBLERR 


00770 




SF 


LAR EA + 13 


007 SO 


ML ABEL 


TF 


« LAR EA+24 


00790 




SF 


LOC-2 


00800 


MADDR 


TF 


0,LOC 


008 10 




CF 


LAR EA + 13 


00820 




BB 




00830 


LBLERR 


RCTY 




00840 




WATY 


LBLMSG 


00850 




B 


OVERR+36 


00860 


LB L MSG 


DAC 


18 » LABEL TABLE FULL. 3, 


00870 


ORGR 


TD 


I CTR t LAREA+38 


00880 




TD 


I CTR-1 » LAREA+36 


00890 




TD 


I CTR-29 LAREA+34 


00900 




B 


MOD 


009 10 


DCOSR 


TD 


CNT 9 LARE A+l 2 


00920 




TD 


CNT-l f LAREA+10 


009 30 




C 


CDSA t LAREA + 30 


00940 




BNE 


#+48 


00950 




TF 


CNT 9 C3 


00960 




TFM 


LAREA+I29OO7398 


00970 




CF 


LAREA+9 


0098 




C 


AST t LAREA + 32 


00990 




BNE 


ABSLT 


1000 




A 


I CTR9CNT 


010 10 




C 


BLANK9 LAREA + 24 


1020 




BE 


REPLI M+12 


010 3 




TF 


LOC 9 1 CTR 


1 040 




SM 


LOC9 1» 10 


1050 




BTM 


LTABLE 


1060 




B 


REPLI M+12 


01070 


AB SLT 


TD 


LOC 9 LAREA+38 


1080 




TD 


LOC-I9 LAREA+36 


01090 




TD 


L0C-29LAREA+34 


01100 




BTM 


LTABLE 


Oil 10 




B 


MOD 


01120 


NOEND 


RCTY 





1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420* 

1430* 

1440* 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 



OVERR 



WATY ENDMSG 
RCTY 
H 
B 

TDM 

RCTY 

WATY OVMSG 
RCTY 



LC + 12 
OVERSWtl 



LAREA 

LDIN 

I DENT 

ADDRAR 

ICTR 

BLANK 

LOC 

CNT 

LABEL 

CDCNT 

ERRCNT 

STORE 
END 

ENDMSG 
OVMSG 

PASS2 

PASS2 



PCS 



WATY 
RCTY 
B 

DAC 

DS 

DAC 

DAC 

DC 

DC 

DC 

DC 

DC 

DSB 

DC 

DC 

DC 

DC 

DSB 

DAC 

DAC 

DAC 



BD 

TFM 

CM 

BNH 

RCTY 

WATY 

RCTY 

H 

TFM 

TFM 

SF 

TF 

TF 

TF 

BC2 

RCTY 

WATY 

RCTY 

WATY 

RCTY 

WATY 

RCTY 

RCTY 

BC1 



LAREA 

MOD 
50, 
10 

20, L 1056 , 

7, a, 
5, a, 

4,0 

12,0 

4,0 

3,0 

15,90 

5,0 

1,5) 

5,0 

1,3 

110,100,9109 
3, END, 

48, END CARD MISSING. LOAD END CARD AND PUSH START. 3, 
22, PROGRAM EXCEEDS CORE. S, 



ASMBLY ,OVERSW 
ICTR, 0332, 8 
CDCNT, 100 
*+60 

P2MSG 



CDCNT, 

PULI M+ll, STORE 

LAREA+149 

CSl+158,IDENT+8 

CS2+158,IDENT+8 

BS+158,IDENT+8 

PCS 

CS1 

CS2 

BS 



L00P2 



01690 




WACO 


CS1 


01700 




WACD 


CS2 


017 10 




WACD 


BS 


01720 


L00P2 


CM 


CDCNT,100 


01730 




BL 


*+48 


01740 




RACD 


LAREA 


01750 




TF 


I DENT+8, BS+158 


01760 




B 


#+24 


01770 


PUL I N 


TF 


LAR EA+108 t 


1780 




TF 


LDIN + 38,CLDI N+38 


01790 




AM 


CDCNT , 1, 10 


01800 




TD 


CNT t LAREA+12 


018 10 




TD 


CNT-1 9 LAREA+ 10 


01820 




TDM 


ERRSW,0 


01830 




C 


AST t LAREA+14 


01840 




BE 


0RGR2+48 


01850 




C 


END+4 t LAREA+30 


01860 




BE 


ENDCD 


01870 




C 


CORG y LAR EA + 30 


01880 




BE 


0RGR2 


01890 




C 


CCTL» LAREA+30 


01900 




BE 


0RGR2+48 


01910 




C 


CEX, LAREA+30 


01920 




BE 


EXR2 


01930 




TF 


ADDRAR-1 t I CTR 


1 940 




AM 


ADDRAR-1, It 10 


01950 




A 


I CTR t CNT 


01960 




TFM 


LDIN+11 t 70707 


01970 




TD 


LDIN + 12,ICTR 


01980 




TD 


LDI N + 10 ,1 CTR-1 


01990 




TD 


LDIN+8,1 CTR-2 


02000 




C 


CDCW» LAREA + 30 


020 10 




BE 


DCWR2 


02020 




C 


CDC» LAREA + 30 


02030 




BE 


DCWR2-12 


02 040 




C 


CDSt LAREA + 30 


02050 




BE 


DSR 


02060 




C 


CDSAt LAREA + 30 


02070 




BE 


DSAR 


02080 




SF 


LAREA+10 


02090 




TF 


WA,CNT 


02100 




AM 


WA,66, 10 


021 10 




TFM 


LDIN+5, 70707 


02120 




TD 


LDIN+6,WA 


021 30 




TD 


LDIN+4,WA-1 


2140 




TD 


LDIN+2, WA-2 


02150 




BTM 


TABLE ,0 


02 160 




C 


C8 t CNT 


02170 




BNE 


*+84 


02180 




TFM 


DMOD+6, LDI N+36 


02190 




TFM 


DMOD+18 9 LDI N + 35 


02200 




BTM 


DMOD»0 


022 10 




BTM 


BADD * 


02220 




BTM 


AADD»0 


02230 




B 


TESTSW 


02240 




C 


C7,CNT 



022 50 




DlMfc 




02260 




BTM 


BADD 


#% °2270 




BTM 


AADD 


\J ! 02280 




B 


TESTSW 


02290 




C 


C5tCNT 


02300 




BNE 


# +60 


023 10 




T FM 


p\iin h i / I f*\t M i i A 

DMOD+69 LDI N+30 


02320 




TFM 


DMOD+18 j LDI N+29 


02330 




BTM 


r\ kA n r\ 

DMOD 


02 340 




B 


*-84 


02350 




C 


y y* k 1 T 

C4t C NT 


02 360 




BE 


108 


02370 




C 


C2 t C NT 


02380 




n m r 

BNE 


*r n C T C 1 1 

TESTSW 


02390 




t r kA 

TFM 


DMOD+69LDI N+24 


02400 




t r- la 

TFM 


DMOD+18 9 LDI N+2 3 


024 10 




BTM 


DMOD * 


02420 




B 


v r* r* t i t 

TESTSW 


02430 




TFM 


LDI N 9 54» 10 


02440 


DCWR2 


C 


TTfCNT 


02450 




B L 


$+36 


02460 




C 


Pi 1 ALII/ 1 /*>. /"» I |T 

BLANK- 10 9 CNT 


02470 




B L 


#+7 2 


02480 




AM 


ERRCNT 9 1 , 10 


02490 




TDM 


ERRSW,1 


02500 




TF 


LDI N+l 2, LBS 


025 10 




TF 


L DI N + 69 LBS 


02520 




B 


TESTSW 


f\ 02530 
VJ 1 02 540 




C 

BNE 


BSI GN9 LAREA + 44 
MI NUS + 1 2 


02550 




SF 


LAR EA+ 10 


02560 




TFM 


MI NUS + 6 9 L AREA + 43 


02570 




A 


11T AM 1 r ■ /* /* AIT 

MI NUS+69 CNT 


02580 




A 


MI NUS + 69 CNT 


02590 


MI NUS 


TDM 


f 5 


02600 




TFM 


T24, 23 99 


026 10 




A 


Toy /* iv 1 tt 

T24 f CNT 


02620 




TF 


LDI N + 69 ZERO 


02630 




TD 


1 P\ T k 1 a y TP y 

LDIN+69T24 


02640 




TD 


1 r\ t ki a y *r / 1 

LDI N+4 t T24-1 


02650 




TD 


LDI N + 29 T24-2 


02660 




C 


AST9 LAR tA + 32 


02670 




BE 


AAA 

AAA 


02680 




S 


T /"* T* Pi /*• KIT' 

I CTR 9CNT 


02690 




TD 


LDIN + 129 LAREA+38 


02700 




TD 


LDI N + 10 9 L ARE A + 36 


027 10 




TD 


1 p\ t k 1 ■ 1 a n r * » ■*% y 

LDI N +8 9 LAR E A + 34 


02720 


AAA 


TD 


a r\nn An 1 1 nt m 1 1 

ADDRAR-1 9 LDI N+12 


02730 




TD 


a r\r\n a n **> 1 ht ki 1 1 r\ 

A DDR AR-2 9 LDI N+10 


02740 




TD 


ADDRAR-3, LDI N+8 


02750 




B 


TESTSW 


02760 


DSR 


TFM 


LDIN9559IO 


02770 




TF 


LDIN+289LDIN+I2 


*tm 02780 
%J 02790 




TF 


LDIN+I29BRRD 




TFM 


LDIN+22,70,10 


02800 




C 


AST, LAREA+32 



02810 




BE 


02820 




S 


02830 




SF 


02840 




TF 


02850 




CF 


02860 




TD 


02870 




TD 


02880 




TD 


02890 




B 


02900 


DSAR 


TFM 


02910 




BTM 


02920 




CF 


02930 




TF 


02940 




CF 


02950 




TF 


02960 




B 


02970 




DC 


02980 


TABLE 


C 


02990 




BE 


03000 




C 


03010 




BE 


03020 




C 


03030 




BE 


03 040 




C 


03050 




BE 


03060 




C 


03070 




BE 


03080 




C 


03090 




BE 


03100 




C 


03110 




BE 


03120 




C 


03130 




BE 


03140 




C 


03150 




BE 


3160 




C 


03170 




BE 


03180 




C 


03190 




BE 


03200 




C 


032 10 




BE 


03220 




C 


03230 




BE 


3240 




C 


03250 




BE 


03260 




TF 


03270 




B 


03280 


INM 


TFM 


03290 




BB 


03300 




TFM 


03310 




BB 


03320 




TFM 


03330 




BB 


03 340 




TFM 


03350 




BB 


03360 




TFM 



*+60 

I CTR » CNT 
LAREA+31 

LDIN+28,LAREA+38 
LAREA+31 

ADDRAR-lt LDIN+28 
ADDR AR-2 » LDI N+26 
ADDRAR-3* LDI N+24 
TESTSW 

LDIN+6,7276, 8 

BADD 

LDIN+30 

LAR EA + 50 1 LDI N+34 

LAREA+45 

LDI N + 34, BLANK- 6 

MINUS+72 

5,0 

CMCW, LAREA+30 
INM 

CR » LAR EA + 30 

INM+24 

CW, LAREA+30 

INM+48 

CP, LAREA+30 

INM+72 

CSW, LAREA+30 
INM+96 

CCW, LAREA+30 

INM+120 

CA t LAR EA+30 

INM+144 

CS » LAR EA+30 

INS 

CCLAREA+30 

INS+24 

CH t LAR EA+30 

INS+48 

CB t LAR EA+30 

INS+72 

CCS,LAREA+30 
INS+96 

CLCA, LAREA+30 

INS+120 

CNOP, LAREA+30 

INS+144 

LDIN+22,LBS-4 

INLBS+12 

LDIN+22,54, 10 

LDIN+22,71,10 

LDIN+22,72, 10 

LDIN + 22,74 t 10 

LDIN+22,23 T 10 



33 f 




D D 

DD 




03380 




T P U 

TFM 


LDI N + 22 > 04» 10 


03390 




BB 




3 400 




T PM 


LDI N + 22 * 41 1 10 


034 10 




BB 




03420 


INS 


T f M 

TFM 


L DI N + 22 f 62 1 10 


03430 




BB 




3 440 




TFM 


LDI N + 22 f 43 » 10 


03450 




BB 




03460 




TFM 


LDI N + 22 »0 3 » 10 


03470 




BB 




03480 




TFM 


LDI N + 22 t 42 1 10 


03490 




BB 




03500 




TFM 


LDIN + 22f 21» 10 


035 10 




BB 




03520 




TFM 


LDIN+22,53, 10 


03530 




BB 




03 540 




TFM 


LDIN+22,55,10 


3550 




BB 




03 560 5 


1 DMOD 


ROUTINE 


03570 




DC 


5 tO 


03580 


DMOD 


TD 


LDI N+36, LAREA+76 


03590 




TD 


LDIN+35 t LAREA+75 


03600 




BB 




03610*B ADDRESS 


ROUTI NE 


03620 




DC 


5 tO 


03630 


n Ann 

B ADD 


BD 


#+36 t LAREA + 54 


03 640 




BD 


# + 24» LAREA + 53 


03650 




B 


I NLBS 


3 660 




C 


S9 » LAR E A+ 54 


03670 




BL 


BI NACT 


03680 




C 


ACT I A H C A i C A 

AST» LAR r.A + 54 


3690 




BNE 


*+72 


03700 




TF 


LDIN+34,ZER0 


037 10 




TD 


LDIN + 34,ICTR 


03720 




TD 


LDIN + 32,1 CTR-1 


03730 




TD 


LDIN+30, 1CTR-2 


03740 




B 


BCADJ 


03750 




TFM 


LEXIT+6, BCADJ 


03760 




TF 


LDIN+34,ZER0 


03770 




TFM 


L00K+23» LAREA+64 


03780 




TFM 


XX+6,LDIN+34 


03790 




B 


LOOK 


03800 


BCADJ 


C 


BLANK-6 1 LAREA + 74 


03810 




BNE 


ADJB 


03 820 




BB 




03830 


INLBS 


TF 


LDIN+34, LBS 


03840 




AM 


ERRCNT » 1 » 10 


03850 




TDM 


ERRSWtl 


03860 




BB 




03870 


BINACT 


TF 


LDIN+34,ZER0 


03880 




TD 


LDIN+34,LAREA+60 


03890 




TD 


LDIN + 32, LAREA+58 


03900 




TD 


LDIN+30,LAREA+56 


039 10 




B 


BCADJ 


03920 


AD JB 


TD 


WAl,LAREA+72 









o^qao 




t n 






c p 


VJ .J 




Tn 


KJ O ~ i VJ 




TO 


n ^ q « o 




TD 


VJ O y y VJ 




^ F 


VJ*T \JKJ\J 




r 

Ky 


040 l o 




RMF 

D IN L 






C 
O 


AAA ^ n 




R 
D 


O 4 040 

U *T VJ *T U 




A 
M 


n a rm o 

UtLO vj 




r f 


n 4 O A o 




TD 


04070 




TD 


U *t UOU 




TD 






BB 


o 4 i n o si 


A ADDRESS 


U 4 1 i u 




UL 


n /, i ?n 
u 1 c\j 


a a nn 
A AUU 


D u 


rui in 
UHi o u 




D U 






D 

D 


U 4 I J U 




/••• 

L 


HA 1 A.O 

uf iou 




D L 


U 4 1 fU 






U H 1 o u 




D M C 


n a i on 




T C 
1 r 


O 4 200 




T n 
1 U 


n At? TO 




t n 
1 u 


04 ? ?0 




t n 
1 u 


O 4? ^ 
VJ *t c O VJ 




D 

D 


04 ?40 




TCU 

I r n 


4 ? l i 

VJ *T C VJ 




T P 

I r 


04 ?Afl 




T C M 

1 rM 


04? 70 

VJ *T<L f VJ 




TFM 


04 ?ftO 




B 


ruoon 


ACAD J 


C 


n a ^nn 

U *t UU 




BNE 


U *+ 5 i u 




BB 


U 4 o < u 


IMLBSA 


TF 


U'tj .iU 




B 


O A "340 
U 4 J5 4 U 


AI N ACT 


TF 


OA'S 

U 4 .3 !> U 




TD 


U4 OOU 




TD 


UH5 / U 




TD 


n a ^ ft n 




B 


n a ^ q n 

U £ t .5 7 I / 


ADJA 


TD 


04400 

VJ *T *T Vj VJ 




TD 


044 1 




TD 


O 4 4 '? O 




SF 


044 

VJ *t "T J V J 




TD 






TD 


04450 




TD 


04460 




SF 


04470 




C 


04480 




BNE 



WAl-l,LAREA+70 
WAl-2*LAREA+68 
WA1-2 

WA2,LDI N+34 
WA2-l,LDIN+32 
WA2-2 t LDIN+30 
WA2-2 

BSI GN, LAR EA+66 
*+36 
WA2,WA1 
* +24 
WA2,WA1 
WA2 

LDIN+34,WA2 
LDIN+32 t WA2-1 
LDIN+30,WA2-2 

ROUTINE 
5 t 

*+36, LAREA+32 
*+24 t LAREA+31 
INLBSA 
S9, LAREA+32 
AINACT 

AST, LAREA+32 
*+72 

LDIN+28,ZER0 
LDIN + 28,ICTR 
LDIN+26,ICTR~1 
LDIN + 24,1 CTR-2 
ACADJ 

LEXIT+6,ACADJ 
LDIN+28,ZER0 
L00K+23,LAREA+42 
XX+6,LDI N+28 
LOOK 

BLANK-6, LAR E A+52 
ADJA 

LDIN+28,LBS 
INLBS+12 
LDIN+28,ZER0 
L DI N + 28 7 LAR EA+38 
LDIN+26,LAREA+36 
LDIN+24,LAREA+34 
ACADJ 

WAl,LAREA+50 
WA1-1, LAREA+48 
WAl-2,LAREA+46 
WA1-2 

WA2,LDIN+28 
WA2-1,LDI N+26 
WA2-2,LDIN+24 
WA2-2 

BSI GN» LAREA + 44 
* + 36 



^t3 



04490 




S 


WA2 , WA1 


04 500 




B 


*+24 


045 10 




A 


WA2»WA1 


04520 




CF 


WA2 


04530 




TD 


LDIN+28, WA2 


04540 




TO 


LDIN+26, WA2-1 


04550 




TD 


LDIN+24, WA2-2 


04560 




BB 




04570* 


LABEL 


TABLE 


LOOK UP 


04580 


LOOK 


TFM 


* + 18 9 LABEL-3 


04590 




C 


t 


04600 




BE 


MVADDR 


046 10 




C 


MLABEL+6 f L00K+18 


04620 




BE 


I NSLB 


04630 




AM 


L00K+18 t 15 t 10 


04640 




B 


LOOK+12 


04650 


MVADDR 


TF 


XX + 11* LOOK+18 


04660 




AM 


XX + llt 3t 10 


04670 




TF 


XX+23 t XX+ll 


04680 


XX 


TD 


0,0 


04690 




BNF 


#+24 


04700 


LEXI T 


B 





04710 




SM 


XX+6 t 2 t 10 


04720 




SM 


XX+11, It 1Q 


04730 




SM 


XX + 23t It 10 


04740 




B 


XX 


04750 


1NSLB 


TDM 


ERRSWt 1 


04760 




AM 


ERRCNTt It 10 


04770 




TF 


#+18 t XX+6 


04780 




TF 


t LBS 


04790 




B 


LEXI T 


04800 


TESTSW 


CF 


ADDRAR-3 


048 10 




BD 


PRI NT t ERRSW 


04820 




BNC2 


PRINT 


04830 




BC1 


*+24 


04840 




WACD 


LAREA 


04850 




AM 


PULI M+ll, 110 f 9 


04860 




B 


L00P2 


04870 


ENDCD 


TF 


LDI N + 12 f ENDC 


04 880 




BTM 


AADD 


04890 




TF 


LDIN + 6t LDI N + 28 


04900 




TF 


LDI N + 28 1 BLANK 


049 10 




TF 


LDI N + 16t BLANK-8 


04920 




BD 


* + 24t ERRSW 


04930 




BC2 


* + 36 


04940 




RCTY 




04950 




WATY 


LAR EA 


04960 




BC1 


* + 24 


04970 




WACD 


LAREA 


04980 




RCTY 




04990 




RCTY 




05000 




SPTY 




05010 




WNTY 


CDCNT-2 


05020 




WATY 


CNTMSG 


05030 




WNTY 


ERRCNT-2 


05040 




WATY 


ERRMSG 



05050 




RCTY 




05060 




BNLC 


ASMBLY 


05070 




H 




05080 


INIT 


B 


ASMBLY,0,0 


05090 


ORGR2 


TD 


I CTR , LAREA+38 


05100 




TD 


ICTR-l,LAREA+36 


051 10 




TD 


ICTR~2,LAREA+34 


05120 




SM 


ICTR, 1,10 


05130 




TFM 


LDIN,55, 10 


05140 




TF 


LDI N + l 2 , BRRD 


05150 




TF 


ADDR AR-1 , BLANK -8 


05160 




B 


TESTSW 


5170 


EXR2 


BTM 


AADD 


05180 




TF 


LDIN + 6,LDI N+28 


05190 




TF 


LDI N + 28 , BLANK— 6 


5 200 




TFM 


LDIN,42, 10 


052 10 




TF 


LDI N + 12, BLANK-6 


5 220 




B 


TESTSW 


05230 


PRINT 


WATY 


LAREA 


05240 




C 


BLANK-9 , A DDR AR-1 


5250 




BE 


-+24 


05260 




WNTY 


ADDRAR-3 


5270 




RCTY 




5 280 




B 


TESTSW+36 


52 90 


CS1 


DAC 


50, ,008015,0 22026,0 30 034,041 ,045,053,0570731026 


5 300 




DAC 


31, a, 


53 10 


CS2 


DAC 


50,L07 2116, 110106, 10 51 1 7B 1 01 / 999 , 02 7A0740 28 ) 027 BOO 102 


5 320 




DAC 


31, 70B026/0991, 001/00111710 3, 


5330 


BS 


DAC 


50, ,008015,0 220 29,0 56 063/056029 


05340 




DAC 


31, ,0240671056 S, 


05350 


CLDIN 


DAC 


20,L0010561056 , 


05360 


AST 


DAC 


1,*, 


05370 


P2MSG 


DAC 


46, PLACE CARDS PUNCHED IN READ FEED. PUSH START. 3, 


5.380 


CNTMSG 


DAC 


9, CARDS S, 


05390 


ERRMSG 


DAC 


8, ERROR So) , 


5 400 


EN DC 


DC 


14,21707070707870 


54 10 


BRRD 


DC 


8,71707576 


05420 


ZERO 


DC 


6,707070 


5430 


CMCW 


DC 


6,544366 


05440 


CR 


DC 


6,590000 


05450 


CW 


DC 


6,660000 


05460 


CP 


DC 


6,570000 


05470 


CSW 


DC 


6,626600 


5480 


CCW 


DC 


6,436600 


05490 


CA 


DC 


6,410000 


05500 


CS 


DC 


6,620000 


055 10 


CC 


DC 


6,430000 


05520 


CH 


DC 


6,480000 


05530 


CB 


DC 


6,420000 


05540 


CCS 


DC 


6,436200 


05550 


CLCA 


DC 


6,534341 


05560 


CNOP 


DC 


6,555657 


05570 


CDCW 


DC 


6,444366 


05580 


CDSA 


DC 


6,446241 


05590 


CDC 


DC 


6,444300 


05600 


CDS 


DC 


6,446 200 



05610 


COftG 


DC 


6*565947 


05620 


CCTL 


DC 


6,436353 


05630 


CEX 


DC 


6,456700 


05640 


LBS 


DC 


6 f 333333 


05650 


TT 


DC 


3*32 


05660 


T24 


DC 


3*23 


05670 


S9 


DC 


2*69 


05680 


BSIGN 


DC 


2*20 


05690 


MA 


DC 


3*0 


05700 


C8 


DC 


3*8 


05710 


C7 


DC 


3*7 


05720 


C5 


DC 


3*5 


05730 


C4 


DC 


3*4 


05740 


C3 


DC 


3*3 


05750 


C2 


DC 


3*2 


05760 


WA1 


DC 


3*0 


05770 


WA2 


DC 


3*0 


05780 


OVERSW 


DC 


1*0 


05790 


ERRSW 


DC 


1*0 


05800 




DEND 


ASMBLY 



ASMBLY 


00402 


LC 


00522 


I NCR 


00846 


REPL 


00966 


REPLIM 


01050 


MOD 


01086 


LTABLE 


01200 


MLABEL 


01260 


MADDR 


01284 


LBLERR 


01320 


LRLMSfi 


1357 


ORGR 


01392 


DCDSR 


01440 


ABSLT 


01632 


NOEND 


01692 


IW E R R 


01752 


LAREA 


01837 


LD IN 


01947 


IDENT 


01987 


ADDRAR 


02004 


I CTR 


02008 


BLANK 


02020 


LOC 


02024 


CNT 


02027 


LABEL 


02042 


CDC NT 


03382 


ERRCNT 


03388 


STORE 


09109 


END 


03 391 


ENDMSG 


0339 7 


GVMSO 


3493 


PASS2 


03536 


PCS 


03812 


L00P2 


03860 


PULIM 


03920 


DCWR2 


04724 


MINUS 


04904 


AAA 


05060 


DSR 


05108 


DSAR 


05276 


TABLE 


05366 


I NM 


05726 


INS 


05894 


DMOD 


06068 


BADD 


06110 


BCADJ 


06314 


INLBS 


06350 


B INACT 


06398 


ADJB 


06458 


AADD 


06680 


AC AD J 


06884 


I NLBSA 


06920 


AINACT 


06944 


ADJA 


07004 


LOOK 


07220 


MVADDR 


07304 


XX 


07340 


LEXIT 


07364 


INSLB 


07424 


TESTSW 


07484 


F NDCD 


07568 


I NI T 


07820 


0RGR2 


07832 


EXR2 


07928 


PRINT 


08000 


CS 1 


0807 3 


C S 2 


08235 


BS 


08397 


C L D I N 


08559 


AST 


08599 


P2MSG 


08601 


CNTMSG 


08693 


ERRMSG 


08711 


ENDC 


08739 


BRRD 


08747 


ZERO 


08753 


CMCW 


08759 


CR 


08765 


CW 


08771 


CP 


08777 


CSW 


08783 


CCW 


08789 


CA 


08795 


CS 


08801 


CC 


08807 


CH 


08813 


CB 


08819 


CCS 


08825 


CLCA 


08831 


CNOP 


08837 


C DC W 


08843 


CDSA 


08849 


CDC 


08855 


CDS 


08861 


CORG 


08867 


CCTL 


08873 


CEX 


08879 


LBS 


08885 


TT 


08888 


T24 


08891 


S9 


08893 


BSIGN 


08895 


WA 


08898 


C8 


08901 


C7 


08904 


C5 


08907 


C4 


08910 


C3 


08913 


C2 


08916 


WA1 


089 19 


WA2 


08922 


OVERSW 


08923 


ERRSW 


08924 











WRT 



INITZR 



000 10* 
00020* 
000 30* 
00040* 

000 50* 
00060 BEGIN 
00070 
00080 
00090 
00100 

001 10 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 

002 10 
00220 
002 30 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 
00550 
00560 



141 - SIMULATOR 
FOR BASIC 1620 



INITIALIZER ROUTINE 



INBRCH 



TESTL 
HEADG 



TR 
TF 
SF 
BC4 
RCTY 
WATY 
RCTY 
BTM 
BTM 
BTM 
BTM 
BTM 
B 

BC4 
RCTY 
WATY 
BC4 
TF 

WATY 

AM 
BB 

RCTY 

RCTY 

WATY 

RATY 

SF 

C 

BE 
C 

BE 
C 

BE 
C 

BE 
C 

BE 

WATY 
RCTY 
RCTY 
B 

WATY 
RNTY 
TD 
TD 
TD 

RCTY 
RCTY 

SF 
B 

DAC 
DAC 



19998, ASK+41 
11,PRELD+11 
17982 
INITZR 



HEADG 

WRT t WORD 
WRT,W0RD+10 
WRTtWORD+22 
WRT,W0RD+34 
WRT,W0RD+44 
INITZR 
INITZR 

FUNCT , , 2 
INITZR 
*+18,WRT-l 



WRT+30,80, 10 



ASK 
TESTL 
TESTL- 1 

TESTL+6,W0RD+6 
START 

TESTL+8,W0RD+18 
CLEAR 

TESTL+8,W0RD+30 
ALTER 

TESTL+6,W0RD+40 
DSTART 

TESTL+12,W0RD+56 

INBRCH 

INERR 



INITZR 
BGMSG 
TEST L-l 
17985, TESTL-1 
17987, TESTL 
17989, TESTL+1 



17990 
B 

10, LOAD 
36,FUNCTI ONS 



PERFORMED 



005 7 




DAC 


18, REQUEST BY TYPINGS, 


00380 


FUNCT 


DAC 


40, LOAD PROGRAM FROM CARD READER 


00S>90 




DAC 


40, CLEAR 141 STORAGE 


00600 




DAC 


40, ALTER STORAGE FROM TYPEWRITER 


006 10 




DAC 


40, DUMP CONTENTS OF 141 STORAGE 


00620 




DAC 


40, BEGIN EXECUTION OF PROGRAM 


00630 


WORD 


DAC 


5, LOADS, 


00 640 




DAC 


6, CLEARS, 


0063 




DAC 


6, ALTERS, 


00660 




DAC 


5, DUMPS, 


006 /0 




DAC 


8, EXECUTES, 


00680 


ASK 


DAC 


23, REQUESTED FUNCTION IS S, 


00690 


BGMSG 


DAC 


15, BEGINNING AT S, 


00700 


I NERR 


DAC 


24, INVALID REQUEST WORD. 3, 



007 10* 

00720* LOADER ROUTINE 

007 30* 



00740 


START 


RCTY 




007 3 




RCTY 




00 7 60 




BC3 


LDUMP 


007 7 




TF 


18161, BLANKS 


00780 




TF 


18141, BLANKS 


00790 




TF 


18121, BLANKS 


00 8 00 




TF 


18101, BLANKS 


008 10 




TF 


18081, BLANKS 


00820 




TF 


18061, BLANKS 


008 30 




TF 


18041, BLANKS 


00840 




TF 


18021, BLANKS-1 


00850 




RACD 


18003 


00860 




TFM 


FTEST+11, 18002 


00870 




B 


NEXT I N 


00880* 








00890* 


INSTRUCTION 


ACCESS ROUTINE 


00900* 








009 10 


NEXT IN 


BNC1 


*+60 


00920 




BTM 


CVTREG,0, 10 


00930 




TF 


*+35, 17983 


00940 




TF 


*+18, IREG-1 


00950 




H 


0,0 


00960 




AM 


FTEST+11, 2, 10 


00970 




BT 


TESTHI , FTEST+11 


00980 


FTEST 


BNF 


*+48,0,7 


00990 




TF 


*+23, FTEST+11 


01000 




TF 


17984,0 


010 10 




B 


TABLE 


01020 




AM 


FTEST+11, 6, 10 


010 30 




BT 


TESTHI , FTEST+11 


1040 




TF 


*+23, FTEST+11 


01050 




TF 


17990,0 


01060 




TF 


*+23, FTEST+11 


01070 




BNF 


*+24,0 


1080 




B 


TABLE 


01090 




CM 


17983,42, 10 


01100 




BNE 


*+72 


on 10 




BD 


*+60, 17990 


01120 




TF 


*+35, FTEST+11 



01130 

01 140 

01150 

01160 

01170 

01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410* TEST 
01420 

01430 TESTHI 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 HIMSG 
01520* 
01530* 
01540* 
01550* 
01560 TABLE 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 



AM 


*+23t 1» 10 


BD 


*+24,0 


B 


B+12 


AM 


FTEST+11,2, 10 


BT 


TESTHI , FTEST+11 


TF 


*+23,FTEST+ll 


BNF 


*+48 1 


TF 


*+23 t FTEST+ll 


TF 


17992, 


B 


TABLE+288 


AM 


FTEST+11,4, 10 


BT 


TESTHI ,FTEST+11 


TF 


*+23,FTEST+ll 


TF 


17996,0 


TF 


*+23,FTEST+ll 


BNF 


*+24,0 


B 

o 


TABLE+96 


CM 


17983, 23, 10 


BE 


SW 


CM 


17983t 21t 10 


BE 


CS-60 


AM 


FTEST+11,2, 10 


BT 


TESTHI ,FTEST+11 


TF 


*+23,FTEST+ll 


BNF 


*-36,0 


TF 


*+23,FTEST+ll 


TF 


17998,0 


B 


TABLE+288 


FOR WRAP-AROUND OFF H 


DC 


5,0 


CM 


*-l, 20000 


BNL 


* + 24 


BB 




RCTY 




WATY 


HIMSG 


RCTY 




H 




B 


DSTART 


DAC 


47, HI LIMIT OF 



TABLE SEARCH FOR OPERATIONAL SUBROUTINE 

TABLE ORDER - R , W, P ,H , SW, A, S, CS ,CW, MCW ,C , LC A , B ,N0P • 



CM 


17983, 


71, 


10 


BE 


R 






CM 


17983, 


72, 


10 


BE 


W 






CM 


17983, 


74, 


10 


BE 


P 






CM 


17983, 


03, 


10 


BE 


H 






CM 


17983, 


23, 


10 


BE 


SW 






CM 


17983, 


41, 


10 


BE 


A 






CM 


17983, 


62, 


10 



01690 


BE 


S 


01700 


CM 


17983,21,10 


01710 


BE 


CS-84 


01720 


CM 


17983,04,10 


01730 


BE 


CW 


01740 


CM 


17983,54,10 


01750 


BE 


MCW 


01760 


CM 


17983,43, 10 


01770 


BE 


C 


01780 


CM 


17983,53, 10 


01790 


BE 


LCA 


01800 


CM 


17983,42, 10 


01810 


BE 


B 


01820 


CM 


17983,55,10 


01830 


BE 


NEXTIN 


01840* 


INVALID OP 


COOE ROUTINE 



01850 ERROR 1 RCTY 

01860 WATY OPMSG 

01870 RCTY 

01880 B CORLIM+36 

01890 OPMSG DAC 41, INVALID I NSTRUCT ION, PUSH START TO DUMP. 3, 

01900* 

01910* OPERATIONAL SUBROUTINES 

01920* 

01930* WRITE SUBROUTINE 



01940 


W 


TFM 


*+23, 18561 


019 5 




C 


ZEROES-38,0 


01960 




BNE 


RE 


01970 




SM 


W+23,2, 10 


01980 




CM 


W+23, 18401 


01990 




BNE 


W + 12 


02000 




B 


SECL 


020 10 


RE 


AM 


W+23,2, 10 


02020 




TF 


*+47,W+23 


02030 




TF 


*+42,W+23 


02040 




TF 


*+54,W+23 


02050 




TD 


*+47,0 


02060 




TD 


0,400 


2070 




WATY 


18403 


02080 




TDM 


0,0 


02090 


SECL 


RCTY 




02100 




TD 


* + 59, 18562 


021 10 




BV 


* + 12 


02120 




SF 


18562 


02130 




C 


18601, ZEROES 


02140 




TDM 


18562,0 


02150 




BNE 


*+36 


02160 




BV 


*+24 


02170 




B 


B-24 


02180 




TD 


*+47, 18603 


02190 




TD 


18603,400 


02200 




WATY 


18563 


02210 




TDM 


18603,0 


02220 




RCTY 




02230 




B 


B-24 


02240 


ZEROES 


DC 


40,0 



02250* READ A CARD SUBROUTINE 



02260 R 
02270 

02280* PUNCH 
02290 P 
02300 



RACD 18003 

B B—24 

A CARD SUBROUTINE 

WACD 18203 

B B-24 



02310* HALT SUBROUTINE 



02320 1 




BTM 


CVTREG ,0 , 10 


02330 




TF 


*+35, 17983 


02340 




TF 


*+18,IREG-l 


02350 




H 


0,0 


02360 




B 


B-24 


02370* 


SET WORD MARK SUBROUTINE 


02380 


SW 


BTM 


CONVTA 


02390 




TF 


#+30, 17989 


02400 




SM 


#+18, 1* 10 


02410 




SF 





02420 




BNF 


*+24, 17990 


02430 




B 


NEXTIN 


02440 




BTM 


CONVTB 


02450 




TF 


#+30, 17995 


02460 




SM 


#+18,1, 10 


02470 




SF 





02480 




B • 


NEXTIN 


02490* 


CLEAR 


WORD 


MARK SUBROUTINE 


02500 


CW 


BTM 


CONVTA 


02510 




TF 


#+30, 17989 


02520 




SM 


#+18, 1, 10 


02530 




CF 





02540 




BNF 


*+24, 17990 


02550 




B 


NEXTIN 


02560 




BTM 


CONVTB 


02570 




TF 


#+30, 17995 


02580 




SM 


#+18, 1, 10 


02590 




CF 





02600 




B 


NEXTIN 


02610*: 


< MOVE 


CHARACTER TO A OR B F 


02620 


MCW 


BTM 


CONVTA 


02630 




TF 


MOVE+11, 17989 


02640 




TF 


MOVE+23, 17989 


02650 




SM 


MOVE+23, 1, 10 


02660 




BTM 


CONVTB 


02670 




TF 


MOVE+6, 17995 


02680 




TF 


MOVE+18, 17995 


02690 




SM 


MOVE+18, 1, 10 


02700 




TF 


#+23, MOVE+18 


02710 




BNF 


MOVE,0 


02720 




TDM 


SFCF+1,2 


02730 




TDM 


MOVE+25,9 


02740 


MOVE 


TD 


0,0 


02750 




TD 


0,0 


02760 




NOP 


SFCF-24 


02770 




TF 


#+23, MOVE+18 


02780 




BNF 


SFCF+24,0 


02790 




TDM 


SFCF+1,3 


02800 




TDM 


MOVE+25,1 



FIELD WORD MARK SUBROUTINE 



02810 


TF 


*+18,M0VE+18 


02820 


SFCF SF 


0,0 


02830 


6 


NEXTIN 


02840 


SM 


MOVE+6,2,10 


02850 


SM 


MOVE+11,2,10 


02860 


SM 


MOVE+18,2, 10 


02870 


SM 


MOVE+23,2, 10 


02880 


CM 


MOVE+18,18000 


02890 


BL 


CORLIM 


02900 


CM 


MOVE+23, 18000 


02910 


BNL 


MOVE-48 


02920 


CORLIM RCTY 




02930 


WATY 


CORMSG 


02940 


RCTY 




02950 


BTM 


CVTREG,0,10 


02960 


TF 


*+35, 17983 


02970 


TF 


*+18,IREG-l 


02980 


H 


0,0 


02990 


B 


DSTART 


03000 


CORMSG DAC 


48,L0W LIMIT OF CORE EXCEEDED. PUSH START TO DUMP. 3, 


03010 s : 


> COMPARE SUBROUTINE 


03020 


C BTM 


CONVTA 


03030 


TF 


*+47, 17989 


03040 


BTM 


CONVTB 


03050 


TF 


* + 18, 17995 


03060 


C 




03070 


BNH 


*+36 


03080 


HIGH SF 


HIGH 


03090 


B 


*+24 


03100 


CF 


HIGH 


031 10 


BNE 


* + 36 


03120 


EQUAL SF 


EQUAL 


03130 


B 


*+24 


03140 


CF 


EQUAL 


03150 


B 


NEXTIN 


03160* 


BRANCH SUBROUTINE 


03170 


BNF 


B+12, 17984 


03180 


B 


NEXTIN 


03190 


B BNF 


DMOD, 17990 


03200 


BTM 


CONVTA 


032 10 


TF 


FTEST+11, 17989 


03220 


SM 


FTEST+11, 1,10 


03230 


TF 


*+23, FTEST+11 


03240 


BNF 


ERR0R1 


03250 


B 


NEXTIN 


03260 


DMOD BNF 


BCE, 17992 


03270 


SF 


17990 


03280 


CM 


17991,21,10 


03290 


BE 


SLASH 


03300 


CM 


17991,62,10 


03310 


BE 


SAME 


03320 


CM 


17991,63,10 


03330 


BE 


TINY 


03340 


CM 


17991,64,10 


03350 


BE 


UPPER 


03360 


B 


ERR0R1 



03370 SLASH 


BNF 


B+l 2t EQUAL 


03380 


B 


NEXTIN 


03390 SAME 


BNF 


NEXTIN, EQUAL 


03400 


B 


B+12 


03410 TINY 


BNF 


*+24, EQUAL 


03420 


B 


NEXTIN 


03430 


BNF 


B+12, HIGH 


03440 


B 


NEXTIN 


03450 UPPER 


BNF 


*+24, EQUAL 


03460 


B 


NEXTIN 


03470 


BNF 


NEXTIN, HIGH 


03480 


B 


B+12 


03490 BCE 


SF 


17996 


03500 


BTM 


CONVTB 


035 10 


TF 


*+23, 17995 


03 520 


C 


17997,0 


03530 


BE 


B+12 


03540 


B 


NEXTIN 


03550* ADD 


SUBROUTINE 


03560 A 


TFM 


ADD+1,21, 10 


03570 


B 


*+24 


03580* SUBTRACT SUBROUTINE 


03590 S 


TFM 


ADD+1,22,10 


03600 


BTM 


CONVTA 


03610 


BNF 


*+36, 17990 


03620 


TF 


17995,17989 


03630 


B 


*+24 


03640 


BTM 


CONVTB 


03650 


TFM 


STRI PA+6,FI ELDA-1 


03660 


TF 


STRIPA+11, 17989 


03670 


TF 


STRIPA+35, 17989 


03680 


SM 


STRIPA+35,1,10 


03690 


TF 


TSIGNA+11,STRI PA+35 


03700 


TFM 


STRIPB+6,FIELDB-1 


03710 


TF 


STRI PB+11, 17995 


03720 


TF 


STRIPB+35, 17995 


03730 


SM 


STRIPB+35,1,10 


3 740 


TF 


TSIGNB+11,STRI PB+35 


03750 


TF 


SN-25, STRIPB+35 


03760 


TF 


SN+6, STRIPB+35 


03770 


TFM 


SN+47,FI ELDB-2 


03780 


TF 


SN-6, 17995 


03790 


TF 


SN+42, 17995 


03800 


SM 


SN+42,2,10 


03810 


TF 


SN+59,17995 


03820 


SM 


SN+59,3, 10 


03830 


TF 


SN+102,SN+59 


03840 TSIGNB TD 


*+22,0 


03850 


CM 


*+9,5000,8 


03860 


BE 


STRIPB-12 


03870 


TF 


*+23, 17995 


03880 


C 


*+22,0 


03890 


BE 


STRIPB-12, ,9 


03900 


TDM 


FI ELDB ,0 


03910 


B 


*+24 


03920 


TDM 


FI ELDB ,0 , 1 1 



03930 


STRIPB 


TD 


0,0 


03940 




SM 


STRIPB+6, 1,10 


03950 




BNF 


#+60 


03960 




TF 


POSCNT, 17995 


03970 




S 


P0SCNT,STRIPB+11 


03980 




AM 


P0SCNT,1, 10 


03990 




8 


TSIGNA-24 


04000 




SM 


STRIPB+11,2,10 


04010 




SM 


STRIPB+35,2, 10 


04020 




CM 


STRIPB+6, FIELDB- 


04030 




BE 


ERR0R2 


04040 




B 


STRIPB 


04050 




TF 


*+18, STRIPB+6 


04060 




TDM 


0,0,11 


04070 


TSIGNA 


TD 


#+22,0 


04080 




CM 


#+9,5000,8 


04090 




BE 


STRIPA-12 


04100 




TF 


#+23, 17989 


041 10 




C 


#+22,0 


04120 




BE 


STRIPA-12, ,9 


04130 




TDM 


FI ELDA ,0 


04140 




B 


#+24 


04150 




TDM 


FIELDA,0,11 


04160 


STRI PA 


TD 


0,0 


04170 




SM 


P0SCNT,1,10 


04180 




BNF 


#+24 


04190 




B 


ADD-24 


04200 




CM 


POSCNT,0 


042 10 




BE 


ADD-24 


04220 




SM 


STRlPA+6,1,10 


04230 




SM 


STRIPA+11,2,10 


04240 




SM 


STRIPA+35,2, 10 


04250 




B 


STRIPA 


04260 




TF 


#+18,STRIPA+6 


04270 




SF 


0,0 


04280 


ADD 


H 


FI ELDB, FI ELDA 


04290 




BNF 


#+36,FIELDB 


04300 




TDM 


SN+11,5 


04310 




B 


#+24 


04320 




TDM 


SN+11, 7 


04330 




BNF 


#+24,0 


04340 




SF 


SN + 11 


04350 




TD 


0,FIELDB-1 


04360 


SN 


TDM 


0,0 


04370 




BNF 


#+24, SN+11 


04380 




B 


NEXTIN 


04390 




TD 


0,0 


04400 




BNF 


#+48,0 


04410 




TF 


#+18, #+42 


04420 




TDM 


0,7,11 


04430 




B 


NEXTIN 


04440 




TDM 


0,7 


04450 




SM 


SN+42,2, 10 


04460 




SM 


SN+47,1,10 


04470 




SM 


SN+59,2, 10 


04480 




SM 


SN+102,2, 10 



04490 




B 


SN+36 


04500 


ERR0R2 


RCTY 




04510 




WATY 


AMSG 


04520 




RCTY 




04530 




B 


CORLIM+36 


04540 


AMSG 


DAC 


47,B-FIELD OF ADD 


04550 




DAC 


20, PUSH START TO 


04560 


POSCNT 


DC 


5,0 


04570 


FIELDA 


DS 


33, 


04580 


FIELDB 


DS 


34, 


04590* 


CLEAR 


STORAGE SUBROUTINE 


04600 




BNF 


*+24, 17990 


04610 




B 


CS 


04620 




BTM 


CONVTA 


04630 




TF 


FTEST+11, 17989 


04640 




SM 


FTEST+11, 1,10 


04650 




SF 


17990 


04660 




TF 


17989,17995 


04670 


CS 


TFM 


CS+210, 18000 


04680 




TD 


CS+248, 17985 


04690 




A 


CS+208, CS+248 


04700 




A 


CS+208, CS+248 


047 10 




TFM 


CS+234, 18000 


04720 




TD 


CS+249, 17987 


04730 




A 


CS+233, CS+249 


04740 




A 


CS+233, CS+249 


04750 




TFM 


CS+191,BLANKS-19 


04760 




TD 


CS+248, 17989 


04770 




A 


CS+191, CS+248 


04780 




A 


CS+191, CS+248 


04790 




TD 


CS+248, 17987 


04800 




BTM 


CONVTA 


04810 




TF 


CS+186, 17989 


04820 




TF 


0,0 


04830 




BD 


CS+228, CS+248 


04840 




CF 


0,0 


04850 




B 


NEXTIN 


04860 




TF 


0, BLANKS 


04870 




SM 


*+8, 1,710 


04880 




SM 


CS+234, 20, 10 


04890 




B 


CS+192 


04900* 


LOAD CHARACTERS TO A-FIELD Wl 


04910 


LCA 


BTM 


CONVTA, 


04920 




TF 


LCA+59, 17989 


04930 




BTM 


CONVTB 


04940 




TF 


LCA+54, 17995 


04950 




TF 


0,0 


04960 




B 


NEXTIN 


04970* 


CONVERT A 


SUBROUTINE TO CONV 


04980 




DC 


5,0 


04990 


CONVTA 


TD 


17988,17987 


05000 




TD 


17987,17985 


05010 




TFM 


17986,0,10 


05020 




A 


17989,17989 


05030 




AM 


17989,18001 


05040 




BB 





OR SUB 
DUMP. a, 



INSTR OVER 32 POSITIONS. 



MARK SUBROUTINE 



FROM 141 TO 1620 ADDRESSING 



05050* CONVERT B SUBROUTINE TO CONVERT FROM 141 TO 1620 ADDRESSING 



05060 




DC 


5 ,0 


05070 


fONVTB 


TD 


1 7994 17993 


05080 




TD 


17993, 17991 


05090 




TFM 


17992,0, 10 


o i no 




A 


17995,17995 






AM 


17995, 18001 






BB 




OR! 30* 








5 1 40* 


r i p ar 

v» l_ u M r\ 


ROUTINE 


51 SO* 








05160 


r 1 F AR 

L» I- i_ H r\ 


RCTY 




051 70 




RCTY 




05 180 




TFM 


CLEAR+42, 19999 


05190 




TF 


19999, BLANKS, 2 


05200 




SM 


CLEAR+42, 20, 10 


052 10 

<f S Cm X V 




CM 


CLEAR+42, 17999 


05 220 




BNE 


CLEAR+36 


05230 


PRELD 


B 


INITZR,,0 


05240 


BLANKS 


DC 


21,0 


52 50* 








5260* 


DUMP 


ROUTINE 


52 70* 








05280 


DSTART 


RCTY 




05290 




RCTY 




05300 




TF 


OPREG+10, 17983 


053 10 




BTM 


CVTREG,0,10 


05320 




RCTY 




05330 




WATY 


TITLE 


05340 




RCTY 




05350 




SPTY 




05360 

V ^ J U V/ 




WNTY 


IREG-3 


05370 




WATY 


OPREG 


05 380 




RCTY 




05390 




RCTY 




05400 




CF 


BLNKS-49 


054 10 




CF 


BLNKS-99 


05420 




TFM 


CARDNO,0, 10 


05430 




TFM 


ADDR1,0,9 


05440 




TFM 


ADDR2,49,9 


5450 




TFM 


SAVC+11, 18101 


05460 




TFM 


INSRM+6, 18101 


05470 




TFM 


IN + 18, 18101 


05480 




TFM 


INSRM+23, 18000 


05490 


SAVC 


TD 


IN+23,0 


05500 


INSRM 


TD 


0,400 


055 10 




TR 


BANDA+37,0 


05520 




AM 


CARDN0,01, 10 


05530 




TD 


BANDA,CARDN0-1 


05540 




TD 


BANDA+2,CARDN0 


05550 




AM 


CARDNO,01, 10 


05560 




TD 


BANDB, CARDNO-1 


05570 




TD 


BANDB+2, CARDNO 


05580 




TDM 


BANDA+137,0 


05590 




TD 


BANDA+ 18 , ADDR 1 


05600 




TD 


BANDA + 1 6, ADDR 1- 



05610 




TD 


ntunixon Anno 
BANDA+30 9 AUUK I 


05620 




TD 


o a Kin a x o o Anno o«9 
BANUA+28 t AUUK c-c. 


05630 




BNC2 


* -X- /. Q 


05640 




TDM 


BANDA+138 tU 


05650 




WACD 


BANDA 


05660 




B 


PWM 


05670 




BNC1 


*+24 


05680 




H 




05690 


TYPE 


TFM 


s < c +2 3»BANDA+136 


05700 




C 


ZEROES-38 f 


57 10 




BNE 


*+36 


05720 




SM 


TYPE+23» Zt 10 


5730 




B 


TYP E+l 2 


5 740 




AM 


TYPE+23|2t 10 


05750 




TF 


*+30 t TYPc+23 


05760 




TF 


* + 42t TYPE+23 


05770 




TD 


f 400 


05780 




WATY 


BANDA+16 


05790 




TDM 


0,0 


05800 




RCTY 




05810 


PWM 


TF 


o Akinoj.no o. I Ml? C 
BANuB + 13o»dLINIv5 


05820 




TFM 


TEST5 + llt BANUA+3 f 


05830 




TFM 


TEST5+lotBANUB+5o 


05840 




TFM 


I NSRMZ+Of DAINUD* , i o 


05850 


TEST5 


BNF 


f kirn /n o T ' 

I NCR t0 f 27 


05860 




TFM 


0f71» 10 


05870 




TF 




05880 


I NCR 


AM 


TEST5+ 1 1 1 2 1 10 


05890 




AM 


TEST5+18 9 2 


05900 




CM 


rrf TCxI 1 D A KIH AO. 1 7 
TE5T5+119 DANUA+i D f 


05910 




BNE 


TEST5 


05920 


WRI TE 


BNC2 


#+120 


05930 




CM 


**+ a r% r\ Lift / f\ ■ f\ 

CARDNO94O9 10 


05940 




BNE 


*+60 


05950 




TFM 


BANDB+9970707 


05960 




TD 


BANDB+10 9 1 REG-1 


05970 




TD 


BANDB+8 9 1 REG-2 


05980 




TD 


BANDB+69I REG- 3 


05990 




WACD 


BANDB 


06000 




TF 


BANDB+10 9ZcROfc5— 34 


06010 




B 


#♦60 


06020 




AM 


I NSRM2+69 29 10 


06030 


INSRM2 


TD 


9400 


06040 




WATY 


r-\ ft ft 1 f\ r% a 1 y 

BANDB+16 


06050 




RCTY 




06060 




BD 


OUT9 SWENDD 


06070 


IN 


AM 


SA VC+1 1 9 100 9 9 


06080 




TDM 


9O 


06090 




TF 


t kirn Uxt C A WT x 1 1 

I NSRM+69 5AVC+1 I 


06100 




TF 


t 11 1 1 n c A Wf xl 1 

I N+18 9 5AVC+11 


061 10 




AM 


1 NoRM + 2 9 iUU 9^ 


06120 




AM 


a nriD 1 tun 1 c\ 
AUUK 1 9 3U 9 IV 


06130 




AM 


ADDR29 509 10 


06140 




CM 


SAVC+H920001 


06150 




BNE 


SAVC 


06160 




TD 


19^00 



Uoi / U 




t r» l< 
1 DM 


oWtNUU , 1 


06180 




TR 


BANDA+37, 19900 


f\ i i Art 

06190 




B 




06200 


OUT 


TDM 


lf9 


062 10 




TDM 


SWENDD f 


06 220 









062 30 


D A M A A 


DAL 


KA A 1 AAA — 


a ^ o /. o 
06240 




n a /* 
DAC 


^ A 
30 f 


U C>2 DO 


D AMDD 
D AINUD 


HAT 

DAC 


K A A 9 
3U f U 2 


r» z. o a f \ 
06260 




DAL 


^A 
JO t 


n /l o "7 n 
6 2 (U 




DC 


22 t 


r*\ l. o q r\ 




DC 


K A A 
DO f U 


062 vo 


D 1 Ml/ C 

BLNK5 


DC 


C A A 

50 ,0 


06300 


S WENDD 


DC 


ltO 


063 10 


ADDR 1 


DC 


3,0 


06 320 


ADDR 2 


DC 


3,49 


06330 


a d r» m t~\ 

C ARDNU 


DC 


2,0 


06 340* 


BD| kit 

r RI NT 


REGISTERS SUBROUTINE 


063 50 


TITLE 


DAC 


14,1 -REG OP-REGS) 


06360 


t n c 

I REG 


DC 


6,3, 


063 f 


r> n o c f* 

□ PRcG 


DAC 


7, a, 


06380 


DI V 


DC 


6,0 


06390 




DC 


5,0 


06400 


C VTREG 


TF 


IREG-1,FT5ST+11 


064 10 




SM 


1REG-1, 18000 


06420 




TF 


DI V-ltIREG-1 


06430 




S 


DI VtIREG-1 


/"\ / / / /**> 

06440 




S 


DI V,IREG-1 


064 50 




S 


DI V,IREG-1 


06460 




S 


DI V,IREG-1 


06470 




s 


DI V,IREG-1 


06480 




TF 


IREG-lf DI V-l 


06490 




BB 




06500* 









06510* ALTER R0UNTINE AND 
06520* LOAD DUMP CARDS ROUTINE 

06530* 



06 540 


ALTER 


WATY 


BGMSG 




06550 




RNTY 


TESTL-1 




06560 




SF 


TESTL-1 




06570 




TF 


FIRST+2, 


TESTL+1 


06580 




TDM 


ALTSW,1 




06590 


NEXTL 


RCTY 






06600 




RCTY 






06610 




CF 


FIRST 




06620 




WNTY 


FIRST 




06630 




SF 


FIRST 




06640 




RCTY 






06650 




TFM 


READ1+6, 


18001 


06660 




A 


READ1+6, 


FIRST+2 


06670 




A 


READ1+6, 


FIRST+2 


06680 


READ1 


RATY 







06690 




RCTY 






06700 




RNTY 


WMS+19 




06710 




TF 


STFLG+6, 


READ1+6 


06720 




SM 


STFLG+6, 


1,10 



06730 


COMMON 


TFM 


n>r\T/* * i t LIU P x 1 ft 

TDIG + 11, WMS+19 


06740 




TFM 


TRM+11 , WMS + 19 


06750 


TRM 


BNR 


*+24,0 


06760 




B 


RM 


06770 


TDIG 


BD 


*+36 ,0 


06780 




TDM 


STFLG+1,3 


06790 




B 


#+24 


06800 




TDM 


STFLG+1 , 2 


06810 


STFLG 


SF 





06820 




AM 


STFLG+6, 2, 10 


06830 




AM 


TDIG + llt It 10 


06840 




AM 


TRM+11 1 It 10 


06850 




CM 


mm r%. W > 4 4 1 1 k A f* m 11 A 

TDI G + l 1 1 WMS+119 


06860 




BNE 


TRM 


06870 


RM 


SM 


mm f% 4 1 ^ » 1 4 1 HI ^ * 4 A 

TDI G + ll t WMS + 19 


06880 




SF 


TDIG+9 


06890 




A 


FI RST + 2t TDI G+ll 


06900 




BD 


NEXTLt ALTSW 


06910 




BD 


EXEC tWMS+3 


06920 


LDUMP 


SF 


BANDC+16 


06930 




RACD 


BANDC 


06940 




TD 


BANDC+138t400 


06950 




BD 


*+24, BANDC + 19 


06960 




B 


CDERR 


06970 




TD 


FI RST+2t BANDC + 20 


06980 




TD 


FI RST+1 1 BANDC + 18 


06990 




TD 


FIRSTtBANDC+16 


07000 




TFM 


TR+6t 18000 


07010 




A 


TR+6 t FI RST+2 


07020 




A 


TR+6,FI RST+2 


07030 


TR 


TR 


t BANDC + 37 


07040 




RNCD 


WMS 


07050 




TD 


WMS+69 f 400 


07060 




BD 


CDERR t WMS + 16 


07070 




TF 


STFLG+6 t TR+6 


07080 




SF 


WMS 


07090 




CM 


WMS + lt 40 1 10 


07100 




BE 


* + 48 


071 10 




TF 


#+30,TR+6 


07120 




AM 


* + 18, 101 ,9 


07130 




TDM 


0,0 


07140 




TDM 


ALTSWtO 


07150 




B 


COMMON 


07160 


EXEC 


TD 


17985, WM5+3 


07170 




TD 


17987 , WM5+M- 


07180 




TD 


17989 , WMS+5 


07190 




SF 


i Toon 
1 ( 990 


07200 




TFM 


1,49, 10 


072 10 




B 


B 


07220 


CDERR 


WATY 


CDMSG 


07230 




RCTY 




07240 




H 




07250 




B 


START 



07260 ALTSW DC 1,0 

07270 CDMSG DAC 38, SEQUENCE ERROR, PUSH START TO RE-LOADS), 
07280 FIRST DSC 4,0003, 



07290 WMS DSS 120 

07300 BANDC DAC 50 f 

07 310 DAC 30 f 

07320 DEND BEGIN 



PAGE 2 



BEGIN 


00402 


WRT 


00558 


HEAOG 


01011 


FUNCT 


01119 


INERR 


01655 


START 


01702 


HIMSG 


02573 


TABLE 


02666 


RE 


03216 


SECL 


03312 


H 


03580 


SW 


03640 


SFCF 


04144 


CORLI M 


04264 


EQUAL 


04576 


B 


04648 


TINY 


04912 


UPPER 


04960 


TSIGNB 


05404 


STRIPB 


05512 


SN 


06028 


ERR0R2 


06196 


FI ELDB 


06449 


CS 


06534 


CLEAR 


07038 


PRELD 


07122 


I NSRM 


07420 


TYPE 


07648 


WRI TE 


07924 


INSRM2 


08056 


BANDB 


08457 


BLNKS 


08737 


CARDNO 


08746 


TITLE 


08749 


CVTREG 


08808 


ALTER 


08928 


TRM 


09180 


TDIG 


09204 


TR 


09516 


EXEC 


09672 


FIRST 


09R7 


WMS 


09874 



$ V M s C TA K L e 



INITZR 


00654 


INBRCH 


00882 


WORD 


01519 


ASK 


01579 


NEXT IN 


01870 


FTEST 


01954 


ERR0R1 


03002 


OPMSG 


03051 


ZEROES 


03531 


R 


03532 


CW 


03772 


MCW 


03904 


CORMSG 


04361 


C 


04456 


OMOO 


04732 


SLASH 


04864 


BCE 


05008 


A 


05080 


TSIGNA 


05680 


STRIPA 


05788 


AMSG 


06245 


POSCNT 


06 382 


LCA 


06810 


CONVT A 


06888 


BLANKS 


07154 


DST ART 


07156 


PWM 


07792 


TEST5 


07840 


IN 


08104 


OUT 


08260 


SWENDO 


08738 


ADDR1 


08741 


IREG 


08781 


OPREG 


08783 


NEXTL 


08988 


READ 1 


09096 


STFLG 


09252 


RM 


09324 


CDERR 


09744 


ALTSW 


09792 


BANOC 


09995 







TESTL 


0099 1 


BGMSG 


01625 


TESTHI 


02476 


W 


03132 


P 


03556 


MOVE 


04048 


H IGH 


0452 8 


SAME 


04888 


S 


510^- 


ADD 


05932 


F I EL DA 


0641 b 


CONVTB 


06966 


SAVC 


07408 


I NCR 


07876 


BANDA 


08297 


ADDR2 


08744 


DI V 


08801 


COMMON 


09156 


LDUMP 


09 38 4 


CDMSG 


09795 



